30
How do I know the thumbnail's size (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.EndUpdate 
		alert( "Width: " )
		alert( .ThumbnailWidth )
		alert( "Height: " )
		alert( .ThumbnailHeight )
	End With
End Function
</SCRIPT>
</BODY>
29
Is it possible to get the dimensions of the picture file

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Dimensions: <b>` + fwidth + ` x ` + fheight"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
28
Is there any function to determine whether the file is a picture

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.AddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.AddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg.2"
		.Caption = "`IsPicture: <b>` + (fpicture ? `Yes` : `No`)"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
27
How can I get the type of the file, like JPG File, and so on...

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Type: <b>` + ftype"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
26
How do I get the file/folder's attributes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Attributes: <b>0x` + hex(fattr)"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
25
How can I determine if the giving input object is a file, folder (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		alert( .FormatABC("`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`",,,,"C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg") )
		alert( .FormatABC("`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`",,,,"C:\Program Files\Exontrol\ExThumbnail\Sample") )
		alert( .FormatABC("`The ` + ffile + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`",,,,"C:\Program Files\Exontrol\ExThumbnail\Sample\elogo2.jpg") )
	End With
End Function
</SCRIPT>
</BODY>
24
Is there any function to get automatically the size of the file in KB, MB or GB

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Size: <b>` + fsizeF"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
23
How can I get the size of the file (GB)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Size: <b>` + ( (fsize/1024/1024/1024) format `` ) + ` GB(s)`"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
22
How can I get the size of the file (MB)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Size: <b>` + ( (fsize/1024/1024) format `` ) + ` MB(s)`"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
21
How can I get the size of the file (KB)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Size: <b>` + ( (fsize/1024) format `` ) + ` KB(s)`"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
20
How can I get the size of the file (bytes)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Size: <b>` + fsize + ` byte(s)`"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
19
How do I get the time the file was created, opened and modified

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.Padding = ""
		.Alignment = 33
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Created: <b><r>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b><r>` + date(fmodified - bias/24/60) + `</b>`+" & _
		" `<br>` + `Last Opened: <r><b>` + date(fopened - bias/24/60) + `</b>`"
		.SingleCaption = .Caption
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
18
How can I display the date/time the file/folder was last opened

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Opened: <b>` + date(fopened - bias/24/60)"
		.SingleCaption = .Caption
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
17
How can I display the date/time the file/folder was last modified

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Modified: <b>` + date(fmodified - bias/24/60)"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
16
How can I display the date/time the file/folder was created

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Created: <b>` + longdate(date(fcreated - bias/24/60)) + ` ` + time(date(fcreated - bias/24/60))"
		.SingleCaption = .Caption
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
15
How can I get the alternate name of the file

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Alternate Name: <b>` + faname + `</b>, Name: <b>` + fname"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
14
How can I get the file's extension

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Extension: <b>` + fext"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
13
I've noticed the Caption property can use expressions, based on the file, the question is how can I use that feature without the Caption property

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		alert( .FormatABC("ffile +` ` + ( len(fname) ? `this is a file/folder`: `not found`)",,,,"C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg") )
	End With
End Function
</SCRIPT>
</BODY>
12
Can I determine if a file/thumbnail exists (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.AddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.AddInputFiles "sss"
		.Caption = "len(fname) ? `this is a file/folder` : `<fgcolor=FF0000><u>not found`"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
11
How can I display the name of the file

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "`Name: <b>` + fname"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
10
How can I display the full name of the file

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.Caption = "ffile"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
9
How can I display the index/number of files/thumbnails

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.BeginUpdate 
		.AcceptFolders = -1
		.AddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample"
		.Caption = "(findex + 1) + ` of ` + fcount"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
8
How can I add more files ( sample 3 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.AddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
		.AddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\device.png"
	End With
End Function
</SCRIPT>
</BODY>
7
How can I add more files ( sample 2 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\logo.png\r\nC:\Program F" & _
		"iles\Exontrol\ExThumbnail\Sample\cordova.png"
	End With
End Function
</SCRIPT>
</BODY>
6
How can I add more files ( sample 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\EndangeredAnimals.png"
	End With
End Function
</SCRIPT>
</BODY>
4
How can I add a file ( sample 3 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.AddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	End With
End Function
</SCRIPT>
</BODY>
3
How can I add a file ( sample 2 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	End With
End Function
</SCRIPT>
</BODY>
2
How can I add a file ( sample 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:44BA596F-E225-476B-81B1-3BDE56AC595A" id="Thumbnail1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Thumbnail1
		.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	End With
End Function
</SCRIPT>
</BODY>